SetSwissParametersCoord Subroutine

private subroutine SetSwissParametersCoord(coord, latc, lonc, azimuth, falseE, falseN, k)

Set parameters for Swiss Oblique Cylindrical reference system

Arguments

Type IntentOptional Attributes Name
type(Coordinate), intent(inout) :: coord
real(kind=float), intent(in) :: latc

Latitude of projection center [rad]
real(kind=float), intent(in) :: lonc

Longitude of projection center [rad]
real(kind=float), intent(in) :: azimuth

azimuth of centerline
real(kind=float), intent(in) :: falseE

Easting/X at the center of the projection
real(kind=float), intent(in) :: falseN

Northing/Y at the center of the projection

real(kind=float), intent(in) :: k

scale factor

Source Code

SUBROUTINE SetSwissParametersCoord &
!
(coord, latc, lonc, azimuth, falseE, falseN, k)

IMPLICIT NONE

!Arguments with intent (in):
REAL (KIND = float), INTENT (IN) :: latc !!Latitude of projection center [rad]
REAL (KIND = float), INTENT (IN) :: lonc !!Longitude of projection center [rad]
REAL (KIND = float), INTENT (IN) :: azimuth !!azimuth of centerline
REAL (KIND = float), INTENT (IN) :: falseE !!Easting/X at the center of the projection
REAL (KIND = float), INTENT (IN) :: falseN !!Northing/Y at the center of the projection 
REAL (KIND = float), INTENT (IN) :: k !!scale factor
! Arguments with intent (inout):
TYPE (Coordinate), INTENT (INOUT) :: coord

!------------end of declaration------------------------------------------------

!set Hotine Oblique Mercator parameters value

CALL SetHotineParametersSystem (coord % system, latc, lonc, &
                                azimuth, falseE, falseN, k)

END SUBROUTINE SetSwissParametersCoord